home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / gnu / glibc108.zip / glibc108 / sunrpc / rpc_clntout.c < prev    next >
C/C++ Source or Header  |  1994-02-06  |  4KB  |  127 lines
  1. /* @(#)rpc_clntout.c    2.1 88/08/01 4.0 RPCSRC */
  2. /*
  3.  * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
  4.  * unrestricted use provided that this legend is included on all tape
  5.  * media and as a part of the software program in whole or part.  Users
  6.  * may copy or modify Sun RPC without charge, but are not authorized
  7.  * to license or distribute it to anyone else except as part of a product or
  8.  * program developed by the user.
  9.  * 
  10.  * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  11.  * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  12.  * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  13.  * 
  14.  * Sun RPC is provided with no support and without any obligation on the
  15.  * part of Sun Microsystems, Inc. to assist in its use, correction,
  16.  * modification or enhancement.
  17.  * 
  18.  * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  19.  * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
  20.  * OR ANY PART THEREOF.
  21.  * 
  22.  * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  23.  * or profits or other special, indirect and consequential damages, even if
  24.  * Sun has been advised of the possibility of such damages.
  25.  * 
  26.  * Sun Microsystems, Inc.
  27.  * 2550 Garcia Avenue
  28.  * Mountain View, California  94043
  29.  */
  30. #ifndef lint
  31. static char sccsid[] = "@(#)rpc_clntout.c 1.2 87/06/24 (C) 1987 SMI";
  32. #endif
  33.  
  34. /*
  35.  * rpc_clntout.c, Client-stub outputter for the RPC protocol compiler
  36.  * Copyright (C) 1987, Sun Microsytsems, Inc.
  37.  */
  38. #include <stdio.h>
  39. #include <strings.h>
  40. #include "rpc_parse.h"
  41. #include "rpc_util.h"
  42.  
  43. #define DEFAULT_TIMEOUT 25    /* in seconds */
  44.  
  45. void
  46. write_stubs()
  47. {
  48.     list *l;
  49.     definition *def;
  50.  
  51.      f_print(fout,
  52.          "\n/* Default timeout can be changed using clnt_control() */\n");
  53.      f_print(fout, "static struct timeval TIMEOUT = { %d, 0 };\n",
  54.         DEFAULT_TIMEOUT);
  55.     for (l = defined; l != NULL; l = l->next) {
  56.         def = (definition *) l->val;
  57.         if (def->def_kind == DEF_PROGRAM) {
  58.             write_program(def);
  59.         }
  60.     }
  61. }
  62.  
  63.  
  64. static
  65. write_program(def)
  66.     definition *def;
  67. {
  68.     version_list *vp;
  69.     proc_list *proc;
  70.  
  71.     for (vp = def->def.pr.versions; vp != NULL; vp = vp->next) {
  72.         for (proc = vp->procs; proc != NULL; proc = proc->next) {
  73.             f_print(fout, "\n");
  74.             ptype(proc->res_prefix, proc->res_type, 1);
  75.             f_print(fout, "*\n");
  76.             pvname(proc->proc_name, vp->vers_num);
  77.             f_print(fout, "(argp, clnt)\n");
  78.             f_print(fout, "\t");
  79.             ptype(proc->arg_prefix, proc->arg_type, 1);
  80.             f_print(fout, "*argp;\n");
  81.             f_print(fout, "\tCLIENT *clnt;\n");
  82.             f_print(fout, "{\n");
  83.             printbody(proc);
  84.             f_print(fout, "}\n\n");
  85.         }
  86.     }
  87. }
  88.  
  89. static char *
  90. ampr(type)
  91.     char *type;
  92. {
  93.     if (isvectordef(type, REL_ALIAS)) {
  94.         return ("");
  95.     } else {
  96.         return ("&");
  97.     }
  98. }
  99.  
  100. static
  101. printbody(proc)
  102.     proc_list *proc;
  103. {
  104.     f_print(fout, "\tstatic ");
  105.     if (streq(proc->res_type, "void")) {
  106.         f_print(fout, "char ");
  107.     } else {
  108.         ptype(proc->res_prefix, proc->res_type, 0);
  109.     }
  110.     f_print(fout, "res;\n");
  111.     f_print(fout, "\n");
  112.      f_print(fout, "\tbzero((char *)%sres, sizeof(res));\n",
  113.          ampr(proc->res_type));
  114.     f_print(fout,
  115.         "\tif (clnt_call(clnt, %s, xdr_%s, argp, xdr_%s, %sres, TIMEOUT) != RPC_SUCCESS) {\n",
  116.         proc->proc_name, stringfix(proc->arg_type),
  117.         stringfix(proc->res_type), ampr(proc->res_type));
  118.     f_print(fout, "\t\treturn (NULL);\n");
  119.     f_print(fout, "\t}\n");
  120.     if (streq(proc->res_type, "void")) {
  121.         f_print(fout, "\treturn ((void *)%sres);\n",
  122.             ampr(proc->res_type));
  123.     } else {
  124.         f_print(fout, "\treturn (%sres);\n", ampr(proc->res_type));
  125.     }
  126. }
  127.